10 CLEAR50 :POKE16452,PEEK(16452)OR128
20 AY=0
30 GOTO2430
40 FORI%=0TO6144:POKE&A000+I%,PEEK(&C000+I%):NEXT:STOP
50 A$="*****************************************"
60 DIMH(100)
70 POKEVARPTR(H(0)),221,229,229,197,213,221,33,66,64,33,0,128,17,0,PEEK(20),1,0,24,237,176,209,193,225,221,225,201
80 AY=CALL(VARPTR(H(0)))
90 GOSUB1410
100 PRINTCHR$(7)
110 RETURN
120 PRINTCHR$(19):CLS:F=2
130 GOSUB50
140 PRINT$2,0,"Megyk neve"
150 A=12:B=24:F$=CHR$(132):L$="CSONGRD":GOSUB1510
160 A=7:B=31:F$=CHR$(132):L$="HAJD-BIHAR":GOSUB1510
170 A=11:B=30:F$=CHR$(31):L$="BKS":GOSUB1510
180 A=7:B=25:F$=CHR$(132):L$="SZOLNOK":GOSUB1510
190 A=9:B=16:F$=CHR$(133):L$="FEJR":GOSUB1510
200 A=10:B=8:F$=CHR$(133):L$="ZALA":GOSUB1510
210 A=11:B=16:F$=CHR$(132):L$="TOLNA":GOSUB1510
220 A=8:B=10:F$=CHR$(131):L$="VAS":GOSUB1510
230 A=6:B=22:F$=CHR$(31):L$="NGRD":GOSUB1510
240 A=7:B=17:F$=CHR$(131):L$="KOMROM":GOSUB1510
250 A=8:B=21:F$=CHR$(131):L$="PEST":GOSUB1510
260 A=7:B=24:F$=CHR$(31):L$="HEVES":GOSUB1510
270 A=10:B=22:F$=CHR$(133):L$="BCS-KISKUN":GOSUB1510
280 A=7:B=10:F$=CHR$(31):L$="GYR-SOPRON":GOSUB1510
290 A=13:B=14:F$=CHR$(133):L$="BARANYA":GOSUB1510
300 A=4:B=28:F$=CHR$(133):L$="BORSOD-ABAJ-ZEMPLN":GOSUB1510
310 A=11:B=11:F$=CHR$(132):L$="SOMOGY":GOSUB1510
320 A=6:B=34:F$=CHR$(132):L$="SZABOLCS-SZATMR":GOSUB1510
330 A=9:B=12:C=1:F$=CHR$(133):L$="VESZPRM":GOSUB1510
340 GOSUB1930
350 GOSUB1690
360 END
370 CLS:F=2
380 GOSUB50
390 PRINT$2,0,"Megyeszkhelyek"
400 A=7:B=12:F$=CHR$(31):L$="GYR":GOSUB1510
410 A=8:B=20:F$=CHR$(131):L$="BUDAPEST":GOSUB1510
420 A=12:B=24:F$=CHR$(16)+CHR$(132):L$="SZEGED":GOSUB1510
430 A=13:B=14:F$=CHR$(133):L$="PCS":GOSUB1510
440 A=9:B=22:F$=CHR$(133):L$="KECSKEMT":GOSUB1510
450 A=7:B=32:F$=CHR$(132):L$="DEBRECEN":GOSUB1510
460 A=6:B=23:F$=CHR$(31):L$="SALGTARJN":GOSUB1510
470 A=8:B=8:F$=CHR$(131):L$="SZOMBATHELY":GOSUB1510
480 A=9:B=12:F$=CHR$(133):L$="VESZPRM":GOSUB1510
490 A=12:B=14:F$=CHR$(131):L$="KAPOSVR":GOSUB1510
500 A=11:B=30:F$=CHR$(31):L$="BKSCSABA":GOSUB1510
510 A=11:B=17:F$=CHR$(132):L$="SZEKSZRD":GOSUB1510
520 A=10:B=8:F$=CHR$(133):L$="ZALAEGERSZEG":GOSUB1510
530 A=9:B=24:F$=CHR$(132):L$="SZOLNOK":GOSUB1510
540 A=9:B=16:F$="":L$="SZKESFEHRVR":GOSUB1510
550 A=8:B=16:F$=CHR$(131):L$="TATABNYA":GOSUB1510
560 A=6:B=25:F$=CHR$(132):L$="EGER":GOSUB1510
570 A=6:B=33:F$=CHR$(131):L$="NYiREGYHZA":GOSUB1510
580 A=5:B=28:C=1:F$=CHR$(133):L$="MISKOLC":GOSUB1510
590 GOSUB1930
600 GOSUB1690
610 END
620 CLS:F=1
630 GOSUB50
640 PRINT$2,0,"Siksgok s mocsarak"
650 A=6:B=33:F$=CHR$(132):L$="NYiRSG":GOSUB1510
660 A=12:B=17:F$=CHR$(133):L$="SRKZ":GOSUB1510
670 A=8:B=24:F$=CHR$(31):L$="JSZSG":GOSUB1510
680 A=7:B=12:F$=CHR$(31):L$="KISALFLD":GOSUB1510
690 A=10:B=22:F$=CHR$(133):L$="KISKUNSG":GOSUB1510
700 A=9:B=16:F$=CHR$(133):L$="MEZFLD":GOSUB1510
710 A=7:B=31:F$=CHR$(131):L$="HORTOBGY":GOSUB1510
720 A=7:B=9:F$=CHR$(31):L$="HANSG":GOSUB1510
730 A=9:B=27:F$=CHR$(133):L$="NAGYKUNSG":GOSUB1510
740 A=11:B=26:C=1:F$=CHR$(31):L$="MAROS-KRS KZE":GOSUB1510
750 GOSUB1930
760 GOSUB1690
770 END
780 CLS:F=1
790 GOSUB50
800 PRINT$2,0,"Hegyek - dombok"
810 A=10:B=8:F$=CHR$(133):L$="ZALAI-DOMBSG":GOSUB1510
820 GOSUB1410
830 A=5:B=30:F$=CHR$(132):L$="ZEMPLNI-HEGYSG":GOSUB1510
840 GOSUB1410
850 A=13:B=14:F$=CHR$(133):L$="MECSEK":GOSUB1510
860 GOSUB1410
870 A=6:B=23:F$=CHR$(31):L$="MTRA":GOSUB1510
880 GOSUB1410
890 A=11:B=12:F$=CHR$(132):L$="SOMOGYI-DOMBSG":GOSUB1510
900 GOSUB1410
910 A=6:B=26:F$=CHR$(31):L$="BKK":GOSUB1510
920 GOSUB1410
930 A=4:B=27:F$=CHR$(31):L$="AGGTELEKI-KARSZT":GOSUB1510
940 GOSUB1410
950 A=9:B=12:F$=CHR$(133):L$="BAKONY":GOSUB1510
960 GOSUB1410
970 A=6:B=21:F$=CHR$(31):L$="CSERHT":GOSUB1510
980 GOSUB1410
990 A=8:B=16:C=1:F$=CHR$(133):L$="VRTES":GOSUB1510
1000 GOSUB1410
1010 GOSUB1930
1020 GOSUB1690
1030 END
1040 CLS:F=1
1050 GOSUB50
1060 PRINT$2,0,"Folyk s tavak"
1070 A=12:B=26:F$=CHR$(133):L$="MAROS":GOSUB1510
1080 A=9:B=12:F$=CHR$(133):L$="BALATON":GOSUB1510
1090 A=8:B=32:F$=CHR$(133):L$="BERETTY":GOSUB1510
1100 A=9:B=16:F$=CHR$(132):L$="VELENCEI-T":GOSUB1510
1110 A=8:B=25:F$=CHR$(132):L$="TISZA":GOSUB1510
1120 A=8:B=10:F$=CHR$(31):L$="RBA":GOSUB1510
1130 A=9:B=27:F$=CHR$(133):L$="KRS":GOSUB1510
1140 A=6:B=6:F$=CHR$(132):L$="FERT-T":GOSUB1510
1150 A=10:B=20:F$=CHR$(131):L$="DUNA":GOSUB1510
1160 A=5:B=31:C=1:F$=CHR$(132):L$="BODROG":GOSUB1510
1170 GOSUB1930
1180 GOSUB1690
1190 END
1200 CLS:F=2
1210 GOSUB50
1220 PRINT$2,0,"Iparvrosok"
1230 A=4:B=28:F$=CHR$(133):J$="Kohszat,gp-,papirgyr":L$="MISKOLC":GOSUB1510
1240 A=9:B=17:F$=CHR$(132):J$="Vaskohszat":L$="DUNAJVROS":GOSUB1510
1250 A=7:B=24:F$=CHR$(31):J$="Htgpgyr":L$="JSZBERNY":GOSUB1510
1260 A=13:B=14:F$=CHR$(133):J$="Porceln-,br-,textilgyr":L$="PCS":GOSUB1510
1270 A=8:B=20:F$=CHR$(131):J$="Gp,ruha,papir,cukor,veg":L$="BUDAPEST":GOSUB1510
1280 A=7:B=12:F$=CHR$(31):J$="Rba gpgyr":L$="GYR":GOSUB1510
1290 A=7:B=31:F$=CHR$(132):J$="Csapgy gyr":L$="DEBRECEN":GOSUB1510
1300 A=6:B=10:F$=CHR$(31):J$="Mezgazdasgi gpgyr":L$="MOSONMAGYARVR":GOSUB1510
1310 A=6:B=22:F$=CHR$(31):J$="Gpgyr,ntde,veg":L$="SALGTARJN":GOSUB1510
1320 A=8:B=16:F$=CHR$(133):J$="VIDEOTON,aluminium":L$="SZKESFEHRVR":GOSUB1510
1330 A=6:B=25:F$=CHR$(31):J$="Vaskohszat":L$="OZD":GOSUB1510
1340 A=9:B=11:F$=CHR$(133):J$="Aluminium,herm":L$="AJKA":GOSUB1510
1350 A=6:B=28:F$=CHR$(31):J$="Vegyipar,herm":L$="LENINVROS":GOSUB1510
1360 A=7:B=8:F$=CHR$(132):J$="Cukorgyr":L$="PETHZA":GOSUB1510
1370 A=11:B=30:C=1:F$=CHR$(31):J$="lelmiszer":L$="BKSCSABA":GOSUB1510
1380 GOSUB1930
1390 GOSUB1690
1400 END
1410 PRINTCHR$(6):PRINT$1,35,"  "
1420 PRINTCHR$(6):PRINT$2,35,"  "
1430 PRINT$1,32,"J:";G
1440 PRINT$2,26,"Krdsek:";J
1450 PRINTCHR$(6):PRINT$3,35,"  "
1460 PRINT$3,30,"Hiba:";H
1470 PRINTCHR$(6):PRINT$3,4,"                          "
1480 PRINTCHR$(6):PRINT$4,4,"                    "
1490 PRINTCHR$(6):PRINT$1,0,"                              "
1500 RETURN
1510 IFW=1THENPRINT$1,0,J$
1520 IFW=3THENPRINTCHR$(6):PRINT$1,0,"                                ":PRINT$1,0,L$
1530 PRINT$3,0,"Nv:"
1540 IFQ>=2THENPRINT$4,15,"FIGYELJ!!":GOSUB2020
1550 PRINTCHR$(6):PRINT$3,4,"                       "
1560 W=W+1:Q=Q+1
1570 K$="":FORI=0TO50:PRINTCHR$(6):BEEP19,2:BEEP17,1:PRINT$A,B," ":PRINT$A,B,F$:NEXT
1580 IFH>10*FTHEN1690
1590 PRINT$2,0,"":INPUT"Nv:";K$:IFK$<>L$THENPRINT$4,4,"ROSSZ!":GOSUB1840ELSEG=G+1:GOTO1630
1600 H=H+1:PRINT$3,35,H
1610 IFW>=4THENK$=L$:PRINT$3,4,K$:FORI=0TO1000:GOTO1630
1620 GOTO1510
1630 W=0:Q=0:J=J+1
1640 GOSUB1890
1650 GOSUB1410
1660 IFC=0THENPRINT$4,0,"Folytatod? (I/N)        "ELSERETURN
1670 I$=INKEY$:IFI$=""THEN1670ELSEIFI$="N"THEN1690ELSEIFI$="K"THEN2510ELSEPRINTCHR$(6):PRINT$4,0,"                 ":RETURN
1680 END
1690 CLS
1700 PRINT$0,0,A$:PRINT$14,0,A$;
1710 FORI=1TO13:PRINT$I,0,"*":PRINT$I,40,"*":NEXT
1720 PRINT$2,15,"*** VGE ***"
1730 IFH=0THENPRINT$5,3,"Kivl eredmny!":PRINT$7,3,"nagyon jl tudod a fldrajzot.":PRINT$9,3,"prblj meg msik krdst!"
1740 IFH=0THENPRINT$11,2,"Ird be a neved!":INPUTQ$
1750 IFH=0THENPRINT$12,20,"Ez a dal a jutalom!":GOSUB1820
1760 IFH>0ANDH<2*FTHENPRINT$5,3,"J eredmny!":PRINT$7,3,"Mg egy kicsit gyakorold!":PRINT$9,3,"Ha kivl lesz, msikat prblj meg!"
1770 IFH>=2*FANDH<4*FTHENPRINT$5,5,"Gyenge eredmny!":PRINT$7,3,"Mg sokat kell gyakorolnod,hogy a":PRINT$9,3,"kivl eredmnyt elrd.":PRINT$11,3,"Sok gyakorlssal megtanulod."
1780 IFH>=4*FANDH<6*FTHENPRINT$5,5,"Nagyon gyenge!":PRINT$8,7,"TANULJ! TANULJ!"
1790 IFH>=6*FTHENPRINT$4,10,"Ne jtssz !":PRINT$8,2,"Vlaszolj a krdsekre ha tudsz!":PRINT$10,2,"Ha nem tudod, tanuld meg!"
1800 PRINT$13,4,"Nyomj meg egy gombot!"
1810 IFINKEY$=""THEN1810ELSERUN
1820 POKE16443,PEEK(16443)AND127:AY=CALL(-26061):POKE16443,PEEK(16443)OR128:OUT0,PEEK(16443):FORI=1TO1000:NEXT:RUN
1830 END
1840 FORI=0TO3
1850 BEEP40,200
1860 BEEP44,100
1870 NEXTI
1880 RETURN
1890 FORI=19TO40STEP2
1900 BEEP45+SIN(I)*I,60
1910 NEXTI
1920 RETURN
1930 BEEP21,800
1940 BEEP19,800
1950 BEEP21,800
1960 BEEP19,800
1970 BEEP17,800
1980 BEEP19,800
1990 BEEP21,800
2000 FORI=0TO1000:NEXT
2010 RETURN
2020 FORI=0TO2
2030 BEEP19,600
2040 BEEP17,500
2050 NEXTI
2060 RETURN
2070 CLS:CLEAR
2080 PRINT"  M E N  ":PRINT
2090 PRINT"      1.  Megyk neve"
2100 PRINT"      2.  Megyeszkhelyek"
2110 PRINT"      3.  Siksgok s mocsarak"
2120 PRINT"      4.  Hegyek - dombok"
2130 PRINT"      5.  Folyk s tavak"
2140 PRINT"      6.  Iparvrosok"
2150 PRINT:PRINT"         Gombok":PRINT
2160 PRINT"             I= folytat"
2170 PRINT"             K= kilp"
2180 PRINT"             M= men"
2190 PRINT"             S= szably"
2200 A=CALL(37):A=PEEK(16450):IFA<48THENGOTO2200ELSEA=A-48:ONAGOTO120,370,620,780,1040,1200
2210 I$=INKEY$:IFI$=""THEN2200ELSEIFI$="K"THEN2510ELSEIFI$="S"THEN2220ELSEBEEP300,30:GOTO2200
2220 CLS:CLEAR
2230 PRINT"          *** JTKSZABLY ***"
2240 PRINT:PRINT"A trkpen megjelenik egy villog nyil."
2250 PRINT"Amit a nyil jell annak ird be a nevt!"
2260 PRINT:PRINTTAB(5)CHR$(4)" Vigyzz a helyesirsra! ":PRINTCHR$(20)
2270 PRINT"1.Hibs vlasznl kiirja, hogy 'ROSSZ!'."
2280 PRINT"2.Hibs vlasznl kiirja, hogy 'Figyelj!'."
2290 PRINT$9,0,"3.Hibs vlasznl kiirja a j vlaszt."
2300 PRINT"4.Hibs vlasznl beirja a j vlaszt."
2310 PRINT:PRINT"A krdsek vgn rtkeli a vlaszaidat."
2320 PRINT:PRINT"      Nyomj meg egy gombot!"
2330 I$=INKEY$:IFI$=""THEN2330ELSEIFI$="K"THEN2510
2340 CLS:PRINT"          *** JTKSZABLY ***"
2350 PRINT:PRINT"Minden vlaszod  utn kilphetsz a programbl, vagy visszatrhetsz a MEN-hz."
2360 PRINT:PRINT"          Gombok:"
2370 PRINT"             I=Folytat"
2380 PRINT"             K=Kilp"
2390 PRINT"             M=Men"
2400 PRINT"             S=Szablyok"
2410 I$=INKEY$:IFI$="K"THEN2510ELSEIFI$="S"THEN2220ELSEIFI$="M"THEN2070ELSEBEEP300,30:GOTO2410
2420 END
2430 CLS:CLEAR:PRINT"     ****************************":PRINT"     *  MAGYARORSZG FLDRAJZA  *":PRINT"     ****************************"
2440 PRINT:PRINT"Ez a program jtkosan segit megtanulni,":PRINT"gyakorolni Magyarorszg fldrajzt."
2450 PRINT"Megyink, megyeszkhelyeink, folyink,    tavaink, hegyeink stb. neveit gyakorolha- tod."
2460 PRINT"A MEN tblbl vlaszthatsz programot!"
2470 PRINT$14,0,"Nyomj meg egy gombot!             K=KILP"
2480 I$=INKEY$:IFI$=""THENGOTO2480
2490 IFI$="K"THEN2510
2500 GOTO2220
2510 CLS:PRINT$8,5,"*** VISZONTLTSRA! ***"
2520 FORI=80TO10STEP-2:BEEPI,I:NEXT
2530 END
2600 CMDI"Mo.fldrajza",A,&8000,!&8000,&9A4A,B,10,2600 RUN
